home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d8
/
zc1755e.arc
/
PHOMAST.T
< prev
next >
Wrap
Text File
|
1990-03-14
|
41KB
|
777 lines
:: -Revised to ZComm Ver 17.29 ::MRA mods 25 Jan 89
:: ::Release 7.9 Master
:: This starter script was written for your convenience by Michael Ash
:: CompuServe Account: 71350,3327
:: PHOMAST4.T
:: NOTICE --> for a FAST START please take a minute and follow the
:: the instruction below... This script is completely modular for your
:: convenience, and includes a simple HOST mode example.
:: Use an ASCII editor (or WordPerfect in DOS Text mode or WordStar in
:: non-document mode) to check the items below to match your particular
:: computer setup. To save you time just SEARCH for sections marked with
:: the symbol <*>
:: 1. Under SETUP, select port 1 or 2 by uncommenting your choice.
:: (Note: "uncommenting" is explained below.)
:: 2. Under COLORS, select the color string you prefer.
:: 3. Under MODEM SETUP, select the proper modem setup string.
:: 4. Under Environment, select PULSE or TONE dial.
:: 5. See HELPFILE section if you are running older versions of ZCOMM.
:: Be sure to rename THIS file PHODIR.T for use with ZCOMM or PHONES.T
:: for you YAM users... For those of you that haven't heard of YAM, it's
:: the short name for Professional-YAM, a commercial package that includes
:: all of ZComm (its shareware subset) plus advanced capabilities for
:: professional telecommunications requirements.
:: Set up a Subdirectory for C:\ZCOMM and path it in AUTOEXEC.BAT file.
:: The following may be added to your autoexec.bat file to give
:: color to your 'flash-up' help processor... comments here in ()
:: set PHONES=c:\zcomm\phodir.t (keeps .t out of root)
:: set NORMATTR=2 (sets normal to green)
:: set REVATTR=3 (sets reverse to blue)
:: set UNDLATTR=10 (makes underline brt green)
:: This script expects to find ZCOMM and PHODIR.T in C:\ZCOMM and a
:: C:\ZCOMM\TEMP temporary subdirectory...
:: Note a ":" before line makes it a comment... this is the method
:: to activate OR deactivate lines of code. To turn something OFF
:: just put a ":" in front of the line. Words ending with a ":" that
:: start in column #1 are labels...
:: To activate menu status or make a call from DOS command line enter:
:: zcomm gosub menu <-- or --> zcomm call apco
:: either via a batch file or directly as a DOS command...
:: NOTICE that APCO and CIS auto-log demos are set for local San Antonio
:: numbers... These numbers may differ in your area. APCO is an example
:: of an auto-log to a TComm(tm) Bulletin Board System.
:: That should get you going! Once you are up and running look at the
:: other commented features that will give you even more POWER...
:: ----------------------------
:: I have spent many hours on this beginner script to make ZCOMM or YAM
:: useful to the novice user right out of the starting block. If this
:: has helped you get a better grasp of the package I would like to hear
:: from you. If you find it truly useful, and you think my time is worth
:: something, please send me a dollar and I'll go out for coffee.
:: What ever you do, I would appreciate a postcard, just to get an idea
:: of who this script finally reached...
:: Michael Ash
:: 3766 Tupelo Ln #2904
:: San Antonio, TX 78229
:: Happy Computing...
:: ----------------------------
:: <*> >>> This SETUP script is where it all begins <<<
setup port 1 :designate COM1
: port 2 :designate COM2 (note ':' turns this OFF)
ena -d :suppress the Carrier Lost msg during setup
: ena -D :establishes a 2sec timing loop for line hits
:(use for call waiting where you can't disable)
: pa4000 :use for clones running 8 MHz and above...
pd1 :turn on time stamping
pi10 :set redial for 10 seconds...
pt4 :set ascii throttle to 20 char/sec (lower=faster)
pv-1 :Verbose OFF (-1 shows none; 50 shows all)
pz360 :set CST time zone {could use DOS: set ZONE=360}
display bell=visual :turns off bell sound
:: The option below allows you to hit an up arrow key to use past
:: commands by setting up a history file. Since all keystrokes are
:: recorded, (including passwords) you may want to have your calling
:: batch file delete it or use a RAMDISK when active for security.
history c:\zcomm\histfile
:: <*> --- Set up DISPLAY COLORS below ---
:: settings: n=text, r=reverse, u=undline, s=status line,
:: *=message, @=file indicator (normally binking i.e. files open)
:: For example: 2=green, 3=blue, 10=bright green etc...
if dc pn7 pr7 pu7 ps7 p*7 p@7 :setup for monochrome monitor
: if dc pn15 pr15 pu15 ps15 p*15 p@15 :Colors for composite monitors
: if dc pn3 pr10 pu10 ps14 p*10 p@10 :if RGB, a color monitor string
: if dc pn31 pr30 pu15 ps14 p*15 p@79 display warpdrive :gas plasma
: >>> The line BELOW sets up an EGA/VGA monitor <<<
: if dc pn2 pr10 pu6 ps3 p*3 p@3 display warpdrive :EGA/VGA color
:: --------------------
: if c goto online :if carrier detected skip modem setup
:: Modems using stored profiles will have to initialize and store it
:: before this will function correctly...(i.e. Hayes 2400)
:: The above line allows you to check the carrier status when YAM/ZCOMM is
:: loaded. This means you can take full advantage of the eXit to DOS
:: function. Anytime you are on-line you can get to the command line by
:: hitting F1 then enter 'X'. What this does is unload the communication
:: program but leaves the modem and serial port active. Now you have full
:: access to DOS and can return on-line (as long as the host doesn't time
:: out). Once through with DOS, re-load YAM/ZCOMM like you did initially
:: and WAM -- you're back on-line as if you had never left... To utilize
:: uncomment this line and one a couple of screen down stating: "if !c..."
:: --- Check Modem Status ---
echo "\n\n\n\t\t\t>>> Modem setup in progress <<<\n\n"
:: Below is an example of how to use color and graphics (off now)
: echo "\n\n\n\t\t ╓──────────────────────────────────────╖"
: echo "\t\t ║ \E[44;1;33m >>> Modem setup in progress <<< \E[0m ║"
: echo "\t\t ╙──────────────────────────────────────╜\n"
sp 1200 : Initially set up speed at 1200 baud
pat 9 K\r\n : Check for OK from modem
rc: put "ATZ\r"; wait -f3 : ATZ then wait up to 3 sec for OK
if 9 goto modset : If Modem on (OK) skip error msg
echo "\n\t\t Please turn your modem ON, or check port setup..."
sleep 20 : You get 2 seconds to turn it on!
cls; goback rc : Check modem again...
:: <*> --- Some of the common MODEM SETUP commands definitions ---
:: &C1=Data Carrier Detect &D2=hang up with change in DTR &J=jack type
:: E1=modem echos commands back to terminal V1=Word result codes
:: &S1=run RS232C spec &W=Save config to nonvolatile memory L=speaker low
:: X4=Detect dial tones and busy signals; enable extended result codes.
:: With this activated (default for most modems) status messages are
:: sent to the screen about modem activity. English words instead of
:: number codes are displayed on the screen.
:: S0=answer rings S6=dial tone wait S7= wait for connect S8=pause for ","
:: S9=Carrier det response S10=delay carrier lost and hangup S11=dial speed
:: Remember if your modem doesn't hang up correctly try &D2 in the string.
modset:
putw "AT E1 V1 X1 S0=0 S7=60 S8=2 S11=50 \r" :Normal 1200 baud setup
: -- Line below is an alternate 1200 baud setup command --
: putw "AT E1 Q0 S0=0 S6=3 S7=40 S8=2 S10=10 S11=50 V1\r" ; wait -f2
: putw "AT E1 L X4 V1 &C1 &D2 &J &S1 \r" :Hayes/Zenith 2400 baud
: putw "AT S0=0 S6=3 S7=60 S10=10 S11=50\r" :second line
: putw "ATZ0\r" : Recalls Hayes Profile 0 if already defined
: put "AT E0 V1 X4 &D2 \r" :for everex 2400 baud
:: -- ZOOM 2400 baud internal modem setup below --
: handshake both : Handshakes both CTS or XOff
: putw "AT &C &D2 &L0 C1 X5 S9=5 S10=10 S11=40 S25=0 +Z0=2 +Z3=45\r"
: S25 DTR timing to 0 seconds
: wait -f1 : Wait 1 second and let modem catch up...
:: <*> --- Setup Environment Variables ---
online:
: set mprefix ATDP : Pulse Dial (commented out here)
set mprefix ATDT : Tone Dial
: set mprefix ATDT1170, : Tone Dial plus call wait defeat (Texas)
set l "1"; set m "1"
:: Above Sets long distance carriers. You have two choices 'l' & 'm'
:: (i.e. MCI, Sprint). Starting a phone# with %m will call that number
:: using the pre-defined phone account...
set answerback "\r\nYour NAME and CITY\r\n\21"
set disks "abcdef" :set up active disks
:: Note the prompts below can be anything you wish...
set mprompt "\r\E[1m(F9=Menu) %drive:\L%pwd-> \E[m" :Help prompt
: set mprompt "\r\E[1m%drive:\L%pwd->\E[m " :Normal path prompt
set hprompt "\r\E[1m%drive:\L%pwd\U [HOST]->\E[m " :HOST mode prompt
set fleft "@mput \b" : Makes left arrow destructive bksp
set fright "@mput \40" : Makes right arrow a right space
set adlopts r : Makes Auto ZModem use crash recovery
set quitcmd \003\336off\r : ALT Q logs off automatically after d/l
set dirrx c:/zcomm/temp : Sets up default for downloaded files
set tmp c:/zcomm/temp : Both tmp and lib are shortcut paths
: set lib c:/arc_stor : you can use in your script. For example
: if later you add the line 'cd %tmp' it
: will put you in the c:\zcomm\temp
: subdirectory...
:: <*> -- HELPFILE Defined Below --
set helpfile "@!yhp \zcomm\zmanh.hlp zmain" :Call Help Processor 17.29+
: set helpfile "@yhp \zcomm\zmanh.hlp" :(older ZCOMM/YAM call)
:: -- Optional setup statements --
: set calllog c:/YAM/calllog : Setup call log (YAM only)
:: -- Define Function Keys --
key: cls :Notice how a label starts in Col 1 and ends in a ":"
reskeys :reset function keys
:: Explained below is the function key define command 'set'. Note below
:: the command format sets a FUNCTION KEY to a specific task:
set f3
@accept s1 "Enter name of \Capture File: " ; create -s+ %s1 ; t
: Notice that I used a special case of the 'set' command where the
: key definition actually appears on the next line starting in col #1.
: The reason for this is normally function key commands are in
: quotes, yet here I wanted a quoted string inside the command. To
: avoid having quotes within quotes, there is a special version of the
: set command that accepts the next line starting in column 1, as an
: implied command. This means you don't need quotes around it...
: To explain how the command works remember anything beginning with
: an "@" sign is a YAM/ZCOMM command (a @! allows you to execute a DOS
: program). Let look at this command defining f3 step by step...
: The command "set" tells the program to set the function key
: (this case F3) to the following string:
: @accept s1 Enter name of Capture File: ;create -s+ %s1 ; t
: You could have used an escape sequence \40 to define a space
: in the string but only necessary in single line format. This will
: make the prompt --> Enter name of Capture File: <-- Now the "accept"
: command assigns anything you type in response to this prompt and
: stores in a variable s1. Remember ";" is just a way to
: separate multiple commands on each line, so you see when we come to
: next command "create", it causes a capture file to be opened
: using the name you have entered. The modifiers -s+ means, strip
: off control characters (-s) and append to the file (+) if it already
: exists. Notice the argument %s1 will insert the file name
: added after the prompt (stored in s1), and ;t just puts YAM/
: ZCOMM back into terminal mode (ie connected to the other computer)
: instead of leaving you in command mode.
: You see the PLUS of YAM/ZCOMM is that you can make things look
: anyway you want. You can set 38 function keys ( remember that
: F1 moves you from circular buffer to terminal mode to command mode
: and F2 moves you in the opposite direction). YAM/ZCOMM has THREE
: displays and this is a FAST way to move between them...
: Now set a series of function keys to activate specific commands...
:: --- NORMAL Function Key Definitions ---
set f4
@accept s1 "Send ASCII Msg named: " f -p %s1 : send ASCII text or upload
: a message...
set f5
@accept s1 "Send file using Kermit called: " kermit sb %s1 : send Kermit
set f6
@accept s1 "Send file using ZModem called: " sz -Z %s1
: above sends file with ZModem Run Length Encoding (RLE) using '-Z'
set f7
@accept s1 "Receive file using CRCXModem called: " rc %s1 :receive CRCXmodem
set f8
@accept s1 "Send file CRCXModem called: " sx %s1 :send CRC Xmodem
set f9 "@gosub menu" :Call Quick Reference
set f10 "@help" :Call help processor
:: --- SHIFTED Function Key Definitions ---
set fs3 "@gosub color"
set fs4 "@echo working...; gosub tlearn"
set fs5 : check phone dir entries
@accept s5 "Search for title name: "; find \n%s5 %phones
set fs6
@echo "\t\t\t Shift F6 not defined -- Hit F9"
set fs9 "@!q" : @! allows call to DOS programs, in this case QEdit
:: --- ALT-ed Function Key Definitions ---
set fa1 "@call -100 apco3" : Examples of key assign
set fa2 "@call -100 ap" : note "@call -100" will
set fa3 "@write; close" : call number up to 100
set fa4 "@kill; call -100 CIS12" : times if busy.
set fa5 "@kill; call -100 pcmag" : kill clears buffer...
set fa6 "@kill; bye; gosub host" : Call for HOST mode
set fa7 "\t\t\t <your name here>\r" : When on-line, Alt-7 signs
: your name in a message...
set fa9 "@!q c:\zcomm\phodir.t" : Calls QEdit, loads phodir.t
:: This is an opening msg for new ZComm users and can be commented
:: out if you wish to skip the opening message.
echo "\n\n\t\t -=* Press F9 for Quick Reference *=- \n\n\n\n\n\n\n\n"
:: Second part of testing for on-line conditions
:: (Optional)
: if !c return :if no carrier return, else go online
: echo "\t\t System still on-line with remote server..."
: putw "\r" ; t :hit return and return to terminal mode
return : Returns system back to terminal mode
:===========================================================================:
menu :On screen Menu Generation...
cls; echo " >>> ZComm Function Key Menu <<< "
echo " "
echo "Alt-N EMERGENCY EXIT, 'Nuke It' to get out of trouble/escape a command "
echo " "
echo "F1 Exit Circular Buffer F2 Enter Circular Buffer "
echo "F3 OPEN Capture file F4 Send ASCII Text "
echo "F5 Send Kermit Upload F6 Send Zmodem Upload <<BEST>> "
echo "F7 Receive CrcXmodem Download F8 Send CrcXmodem Upload "
echo "F9 Press for THIS HELP SCREEN F10 Flashup Help Processor "
echo "Alt-1 Get DOS Command prompt Alt-2 Get ZCOMM Command prompt "
echo " "
echo "sF3 Show some ZComm color choices sF4 Use Turbolearn Script Writer "
echo "sF5 Search for dialing entry sF6 <not defined> "
echo " "
echo "aF1 AutoLog APCO (300 baud) aF2 AutoLog APCO (1200 baud) "
echo "aF3 CLOSE Capture file aF4 CIS DEMO at 1200 baud "
echo "aF5 Call PC Magazine's BBS aF6 Enter HOST MODE operation "
echo "aF7 Sign name on-line ALT-F9 Edit PHODIR.T SCRIPT "
echo " "
echo " TO CALL OTHER BBSs: enter 'call name' where name is a label "
echo " "
echo "Stop Redialing ---- press <CR> Hangup w/o pgm exit - enter 'bye' "
echo "PgUp into Buffer; <CR> to return -> EXIT hit F1 then -- enter 'off' "
return
:: --- Color Generation examples ---
color
cls; echo "\n\t\t\t \E[32m\E[41m >>> ANSI Color Calls <<< \n\n"
echo "Foreground:\n"
lput "\E[47m\E[30m\\E[30m\E[40m \E[31m\\E[31m \E[32m\\E[32m \E[33m"
lput "\\E[33m \E[34m\\E[34m \E[35m\\E[35m \E[36m\\E[36m \E[37m\\E[37m"
echo "\n\nBackground:\n"
lput "\E[40m\\E[40m \E[30m\E[41m \\E[41m \E[42m \\E[42m \E[43m \\E[43m "
lput "\E[44m \\E[44m \E[45m \\E[45m \E[46m \\E[46m \E[47m \\E[47m \n\n"
echo "Modifiers (primary green):\n \E[32m" :Switch foreground back to green
lput "\E[0mReset, Bold, Faint, Italics, Underline, Blinking,"
lput " Reverse, Invisible\n\r"
lput "\E[0m\\E[0 \E[1m\\E[1m \E[2m\\E[2m \E[3m\\E[3m\E[0m \E[4m\\"
lput "E[4m\E[0m \E[5m\\E[5m or \\E[6m \E[0m \E[7m\\E[7m\E[0m \\E[8m"
echo "\E[36m\E[21f\t\t Notice \\E[21f puts cursor on 21rd line...\E[23f"
return
:===========================================================================:
: --- Auto Logon Section --- :
apco12 cls; echo "\n\t\t ZCOMM is now calling APCO at 1200 Baud\n\n"
ena -E -Z -8g :enaBLE Error ck, auto d/l, w graphics
nolog; speed 1200 :turn off log and set speed 1200 baud
goto number :Skip 300 baud dial
apco3 cls; echo "\n\t\t ZCOMM is now calling APCO at 300 Baud\n\n"
ena -E -Z -8g :enaBLE Error ck, auto ZModem w graphics
nolog; speed 300 :turn off log and set speed 300 baud
number: bye :hang up modem
654-7756 :Local dial
: 1-654-7756 :Toll call (commented out)
: 1-512-654-7756 :Long distance (outside San Antonio)
cls
: echo "\E[34m\n\n\t\t >>> Welcome to the APCO BBS -- Please standby <<<"
: display inhibit :turns off display for opening setup...
:(use this to not show opening screens)
ena -E -Z -8g :enaBLE Error ck, auto ZModem w graphics
pat; pat 1i "ENTER" :Clear patterns and look for ENTER
wait :Wait for pattern
: put "\rn\ry\r\r" :REQUEST graphics and color
put "\r\r\r" :SKIP graphics and color
restime :Reset status clock (Yam Only)
pat 1i "right (y/N/why)?"
wait :wait for tcomm...
: display noinhibit :turn display back on if off
pat 1i "ast name: " :Look for log in prompt
wait :Wait until prompt occurs
:: <*> Note you will have to log-on manually first to get a password on
:: APCO... Since you don't have a password assigned, the line below
:: skips the rest of the auto log-on and hooks you to the APCO HOST.
:: When you have a name and password, add them in the 'putw' statement
:: BELOW and DELETE (or comment out) this NEXT line...
t; return : Abort auto-login until name assigned below.
:: ^^^^^^^^^:delete this after name/password loaded below!
putw "FIRST LAST NAME\rPASSWORD\r" :Enter name / password
pat 2i "==" :Look for 'Announc' string of bulletins
wait
put \013 :Ctrl K to skip Bulletins
put "q\rm\r" :Drop on menu level to prevent timeout
:: >>> Alarm Section <<<
display nobell=visual :Turn bell back ON
lput "\r\n\n\t\t Hit *BACKSPACE* key to \E[3m\E[5mSTOP\E[0m alarm..."
sleep 30 :3 sec for response before alarm
while "!k&&L<20" lput "\7\7" :For 20x and While nokey, make noise
if k goto bv :If keyhit then skip next call
:: Put other DOS noise making program here if you wish, for example
:: !sound (note the '!' will execute DOS programs from inside script)
bv: cls; display bell=visual :space and quiet bell
put "r\r" :Prepare to read mail...
pf30 :Reset search wait (3 sec)
kill :Clear circular buffer
restime :Reset the timer (yam only)
: create -s+ %tmp\apco%d.log :sTRIP Ctrl, append date file
cd %tmp :Change directory to d/l area
t :activate terminal mode
return
:---------------------------------------------------------------------------:
: --- Second example of an auto logon script --- :
CIS12 cls; bye :Note -- CIS in caps so won't be called by mistake
echo "\t\t\tNow accessing CompuServe at 1200 baud...\n\n "
speed 1201 435-3883 :Odd number, 2 stop bits, error trap
goto cislog :Goto logon section of CIS script
cis cls; bye; echo "\t\t\tNow accessing CompuServe at 300 baud...\n\n "
speed 300 435-3883
cislog: sleep 20 :Sleep for 2 seconds
ena -E -7e : put into Error correcting 7 bit, even parity...
echo ""; echo "Sending ^C"; put \3 :Send Ctrl-C, echo doing it.
pattern 1i ID: :Wait for ID
wait :"i" causes immediate release
putw "77770,101\r" :Enter Account (can be yours)
pat 1i word: :Wait for password prompt
wait
putw "FREE-DEMO\r" :Enter password for demo...
kill :Kill initial login text
restime :Reset status timer (yam only)
: create -s+ %tmp\cis.log :sTRIP hi-bit, append data file
: cd %tmp :Change directory to d/l area
:Set: fULL duplex, B proto, strip ctrl char, don't pAUSE for (CR)
ena -fcs!p
t :activate terminal mode
return
: --- End of Auto Log Examples --- :
: -------------------------------------------- :
:=============================================================================:
: :
:: Note: This is a "hands-on" script. It only incorporates two "auto :
:: logon" examples which show how to write an auto logon script. :
:: One example runs an auto logon to the Alamo PC Organization BBS, :
:: and the other gets you into the demo area of CompuServe... :
:: :
:: The APCO BBS is currently operating under the TComm remote :
:: access system software, so the auto logon script has to "see" :
:: questions asked by that system and answer them. Other BBS :
:: systems present a different "face" when you log on, so auto :
:: logon scripts for other systems will differ somewhat. :
:: :
:: The normal single line phone directory entries in the directory :
:: below were created with an ASCII text editor. Executing those :
:: entries will place ZComm into terminal mode w/graphics enabled :
:: as soon as a connect is made. This works well for making calls :
:: and gives you full control of the logon process following a :
:: connect. However, if you want to develop automatic logon :
:: scripts, you will need to comment out or delete the entries :
:: following the ';' in the directory examples below (e.g. place :
:: a colon and a space in between the ';' and 't -8g'), and then :
:: make 't -8g' the final entry in the auto logon routine. :
:: :
:: The reason for this is that placing ZComm into terminal mode by :
:: entering 't' stops script pattern searches. Examples of auto :
:: logon scripts may be found in Chuck Forsberg's phone scripts :
:: that are distributed with ZComm, and the ZComm manual explains :
:: how such auto logon scripts are constructed and how to use the :
:: TurboLearn(tm) feature to automate writing scripts. I recommend :
:: that new ZComm users use this script essentially "as is" for :
:: a while to test your new phone directory entries and become :
:: familiar (comfortable) with ZComm. Then you can enjoy the :
:: challenge, the fun, and the satisfaction of modifying this script :
:: to add auto logon procedures, dial queues, and the like. Keep in :
:: mind that this is only a simple example script to use in learning :
:: basic ZComm functions. You will have plenty of time to enhance :
:: and embellish this script later. :
:: :
:: <<< comments courtesy of Bob Willoughby >>> :
:: :
:: >>> Actual Dialing Scripts Are Found Below <<< :
:: Remember... those items starting with ":" are commented out :
:: :
:=============================================================================:
: --- Simple Phone Directory Entries ---
apco24 bye; speed 2400 654-7817 ena -E;t -8g :membership board #
apco12 bye; speed 1200 654-7817 ena -E;t -8g
public bye; speed 1200 654-7756 ena -E;t -8g :APCO public BBS
:: --- Some San Antonio Bulletin Boards ---
abbey_road bye; sp 1200 590-6036 ena -E;t -8g
current bye; sp 1200 828-7883 ena -E;t -8g
cutting_edge bye; sp 1200 641-6813 ena -E;t -8g
sahug bye; sp 1200 341-0586 ena -E;t -8g :Zenith Group
satug bye; sp 1200 496-1054 ena -E;t -8g
teachers_lounge bye; sp 1200 344-7470 ena -E;t -8g
:: Note to users -- Some of the above San Antonio bulletin boards operate
:: at speeds higher than 1200 baud. If you have a 2400 baud modem, just
:: edit the 'speed 1200' to read 'speed 2400' as appropriate in the above
:: directory. Want to add other favorites? Just add them in with an ASCII
:: text editor using the above as example entries. It's easy!
:: --- Some Classic BBS systems ---
buerg24 bye; sp 2400 1-707-778-8944 ena -E;t -8g :Vern Buerg's BBS
buerg12 bye; sp 1200 1-707-778-8944 ena -E;t -8g
jordan24 bye; sp 2400 1-301-428-7931 ena -E;t -8g :Larry Jordan
jordan12 bye; sp 1200 1-301-428-7931 ena -E;t -8g
genie12 bye; sp 1200 226-6513 ena -hs;t :GE Network
genie24 bye; sp 2400 271-0538 ena -hs;t
pcmag bye; sp 1200 1-212-696-0360 ena -E;t -8g :PC Magazine BBS
pctech bye; sp 1200 1-301-576-7285 t :PC Tech Journal
:: -=- End of simple phone directory entries -=-
:=============================================================================:
:: Generate a script with TurboLearn Script Writer(TM)
:: Hit Shift-F4 to start this...
tlearn set fc10 "" :: telephone number, and flag that telno was entered
if c goto connected
cls
accept fc10 "Enter Telephone Number "
ag1: accept fa1 "Enter Speed (300, 1200, 2400) "
if ifa1,2400 speed 2400 goto ag2
if ifa1,1200 speed 1200 goto ag2
if ifa1,300 speed 300 goto ag2
echo "Bad speed"; goback ag1
ag2: lput "\r\n1 System uses IBM PC (ANSI) line drawing characters\r\n"
lput "2 System uses 7 bits even parity\r\n"
lput "3 System uses 8 bits No parity (8n1)\r\n"
lput "\r\n"
acceptl1 fa2 "Choose one of the above: "
lput "\r\n"
ena -8n
@%fc10
if !c echo "Sorry, no connection"; return
set fa5 ""
if ifa2,1 ena -8g; set fa5 "ena -8g"
if ifa2,2 ena -7e; set fa5 "ena -7e"
connected:
echo "Finish with F1. Use ALT-B to send a break if necessary"
learn -y tlrn.tmp
cn2: if !r echo "WARNING: Learning (recording) terminated prematurely!"
close
kill
create newscr.t
if !r abort
echo "Is this to become a Telephone Directory entry (y/n)?"
if !y goto nodir
accept fa6 "What directory entry name to use? "
echoc "%fa6 speed %fa1 %fc10 %fa5"
nodir: close; set fa2 ""
echo "Should the script disconnect the phone line (y/n) ?"
if !y "!tlearn tlrn.tmp >>newscr.t"; goto scdone
set fa2 "bye; return"
echo "Should the script then exit to the Operating System (y/n)?"
if y set fa2 "off"
!tlearn -r tlrn.tmp >>newscr.t
create -+ newscr.t; echof " %fa2"; close
scdone: echo "Your new script is in the file 'newscr.t' !!"
if %fc10 echo "You may add this file to your Telephone Directory"
if %fc10 echo "Or execute it with 'call %fa6.newscr.t'"; return
echo "You may execute this file with 'source newscr.t'"
return
:=============================================================================:
:: --- Using YAM/ZComm in HOST MODE ---
:: Note that for maximum -security- have this section be another file
:: so users won't see your passwords.
:: YAM users can comment in 'demand %password' at end of file
host cls; echo " Activating host mode operation... Stand by!\n\n"
sp 2400
: sp 1200 : use for 1200 baud host modem...
: set home "/HOST" : Optional restricted directory
:: The above command can force users into a specific area on disk. It
:: CRITICAL you use "/" NOT a "\" in this command. This will lock users
:: into that directory and its subdirectories. If you use this
:: command, you MUST have your welcome and xhelpfile as a different
:: file and this file MUST be in the directory specified by the 'set
:: home' command. To function it MUST be a READ ONLY file. You may
:: use HOSTHELP.TXT for this purpose but it will need to rename to
:: HOSTHELP.T. Remember you will also need to add some starting
:: labels and utilize new 'set welcome' and 'set xhelpfile' commands.
set welcome "@gosub welcome./zcomm/phodir.t" : setup Welcome
set messages "/zcomm/messages" : setup file for messages
:: Private should set to another directory so people won't see
:: private messages.
set private "/zcomm/pmessage" : Setup private message area
:: Normally section below would be in another file so people could NOT
:: view your passwords. For testing you can get around this by assigning
:: your script a READ-ONLY, HIDDEN attributes. For YAM users wanting to
:: use the 'demand %password' option, the file CAN NOT have a HIDDEN
:: attribute so you MUST put this in another directory that users can't
:: access for protection.
set password "xxxxxxxx" : CHANGE THIS Access Password
set unrestrict "xxxxxx" : WARNING - CHANGE THIS DOS drop PASSWORD!!
:: <*> -- HOST Helpfile Defined Below --
set xhelpfile "@gosub help./zcomm/phodir.t" : Custom help 17.29+
: set xhelpfile "@type hosthelp.txt>com1" : (older versions)
:^^^^ set this for com1 or com2
: Notice this is an EXTERNAL file!
set disks "abcdef" : Setup restricted disk area
set call1 "ATZ\r\336\336ATZ\r\336\336" :prepare to answer phone...
set call2 "ATZ\r\336\336ATM1X1S0=1\r\336ATM1X1S0=1\r\336\336"
: Note 'call3' below would normally be a command that
: requires quotes around it, but it includes a quoted string
: so you MUST use this alternate form of the set command to
: have the actual command start at COL #1 of the next line.
: <<< This works with YAM only...>>>
: set call3
: @echo "\t\t Now awaiting incoming calls... Press F1 to exit.\n\n"
set answerback "\r\nYOUR NAME HERE...\r\n\21"
set outahost "@pk512; putw ATE1V1X1S7=60S8=1S11=50S0=0\r;pwd; gosub menu"
set baudstr "@gosub baud" : sub below to find speed
pc60 : callout interval = 60 sec
host
: >>> Check for Caller Speed <<<
baud pat 1 "CONNECT\r\n"; pat 2 "NO CARRIER"
pat 3 "CONNECT 1200\r\n"; pat 4 "CONNECT 2400\r\n"
pe-20
wait -Ef25
dis -E
if 1 speed 300 return
if 3 speed 1200 sleep 20 return
if 4 speed 2400 sleep 20 return
kill create -+ rings
close
fail
welcome:
:In HOST mode, below is what the user will see on login
echo " >>> Welcome to YAM/ZCOMM Host Mode <<< "
: demand %password :YAM users may comment this in to request password
:: The 'demand' command is only available in YAM and NOT in ZComm...
:: If you are using ZComm there is no way to restrict initial access
:: like you can with YAM. ZComm CAN will RESTRICT access to DOS if
:: user doesn't know the password ...
help: :Note this is also the help message...
echo " "
echo " The thing to remember is that when you see the prompt followed "
echo " by [HOST] it is like you are actually sitting at the host "
echo " terminal... To execute commands on your own YAM/ZComm hit F1 "
echo " to call your local terminal program... "
echo " "
echo " To open access to the complete disk enter the command: UNRESTRICT "
echo " and then use the system password -- otherwise you will remain in "
echo " the C:\\zcomm directory or one of its subdirectories. "
echo " "
echo " To see the files on the host enter: 'dir' and hit return. "
echo " "
echo " TO DOWNLOAD a file from the host enter 'sz filename' (wildcards OK) "
echo " (Remember this is just like typing at the HOST keyboard...) "
echo " - For XMODEM enter 'sx filename' at HOST prompt - "
echo " - For KERMIT enter 'kermit sb filename' at Host prompt - "
echo " "
echo " TO UPLOAD a file hit F1 to get into your terminal command mode and "
echo " then enter 'sz filename'. In ZModem everything else is automatic. "
echo " - XMODEM enter 'rx filename' or 'rc filename' for CRCX at HOST prompt - "
echo " - KERMIT enter 'kermit rb' at HOST prompt then start your upload - "
echo " "
echo " To leave a MESSAGE enter the command 'message' and follow prompts. "
echo " ---> To see this message anytime enter the command 'help' <--- "
:+++++++++++++++++++++++++++++--- That's it ---++++++++++++++++++++++++++++++